home *** CD-ROM | disk | FTP | other *** search
/ F1 Licenseware / F1 Licenseware - Volume 1.iso / disks / 049a.dms / 049a.adf / articles / chapter15.asc < prev    next >
Text File  |  1993-09-09  |  9KB  |  253 lines
  1. @1The following article is from the F1 Licenceware title, Absolute Beginners
  2. Guide To Amos, By Andy Pine. See F1 Products article for more info.
  3. Also look in the drawer EXAMPLE_PROGRAMS for the source code to go with 
  4. this article.@2
  5.  
  6.               The Absolute Beginners Guide To Amos
  7.               -------------------------------------
  8.                          Chapter fifteen
  9.                          ---------------@1
  10. Now I would like to show you an easy way to detect mouse selections.
  11. There are quite a few ways to set up menus that use the mouse but as we
  12. are trying to learn the basics I will show you the simplest way I could
  13. think of.  It`s not the best way but it is straight forward and neat.
  14.  
  15. If you have already looked at EXAMPLE15.Amos you will se how this system
  16. works:
  17.  
  18. 1) We first draw some boxes for our text onto the screen
  19. 2) We then detect if the user has pressed a mouse key
  20. 3) Act on the mouse click 
  21. 4) If inside a box perform the related task.
  22. 5) If outside a box then goto 2)
  23. That is a broad outline of the program I will now go through the program
  24. line for line.
  25.  
  26.  
  27. SCREEN OPEN 0,640,200,8,HIRES
  28. -----------------------------
  29. Open a custom screen, simply because it looks nice and gives more room for 
  30. text operations and the like.
  31.  
  32. CHANGE MOUSE 2: PAPER 6: CURS OFF: CLS 6
  33. ----------------------------------------
  34. Set the mouse pointer to a cross hair and switch the text cursor off, set
  35. text paper to the same as the background screen colour (6) a nice blue.
  36.  
  37. UNDER ON
  38. --------
  39. A new command but nice and straight forward.  This simply sets underlined 
  40. text to ON, so any text PRINTed from now on will automatically be UNDERlined,
  41. at least until Amos comes to an UNDER OFF statement.
  42.  
  43. CENTRE "Move the mouse pointer over a box and click left button"
  44. ----------------------------------------------------------------
  45. Centralize the forthcoming string of text (This will be underlined as well) 
  46.  
  47. Note: As we haven`t set the text cursor to any position yet in this program
  48.       this text will be on line 0.
  49.  
  50.  
  51.  
  52. UNDER OFF
  53. ---------
  54. Now turn UNDERlining OFF.
  55.  
  56.  
  57. RESERVE ZONE 4
  58. --------------
  59. We will want four menu boxes in this example so we have to reserve space for
  60. them using RESERVE ZONE.  Don`t worry why at this stage just remember that
  61. the menus will not work without this command first.
  62.  
  63.  
  64. LOCATE 20,10: PRINT BORDER$(ZONE$("BOX 1",1),1)
  65. -----------------------------------------------
  66. WE know what the LOCATE and PRINT do.  The rest of the line is as follows,
  67.  
  68.  
  69. BORDER$(ZONE$(
  70. ---------------
  71. Is always the same (you can leave border$ out if you want)
  72.  
  73. "BOX 1"
  74. -------
  75. This is the text you wish to be displayed inside the menu box, in quotes.
  76.  
  77. ,1),1)
  78. ------
  79. The first number is the menu I.D for our use (1) and the second 1 is the type
  80. of border pattern we want around the box, ranges are 1 to 16 try out some
  81. different patterns in EXAMPLE15.Amo.  If you don`t want borders around your
  82. text then delete the first bracket and the ,1) at the end.
  83.  
  84.  
  85. The next three lines are virtually the same except for the text and I.D 
  86. number.
  87.  
  88.  
  89. KEE:
  90. ----
  91. This is a label for GOTO to jump to.  See last line of program.
  92.  
  93.  
  94. WHILE MOUSE KEY=0: WEND
  95. -----------------------
  96. This excellent and useful little line continually loops until a mouse key is
  97. pressed where upon the program continues.  It is very similar to the WAIT KEY
  98. command we have been using but instead uses any mouse button. 
  99.  
  100. Make a note for use in your future programs.  The WHILE WEND loop, as it is
  101. known, will repeat anything inside the WHILE and WEND commands repeatedly
  102. until a condition is met, in this case a mouse button click.  WHILE can be 
  103. proceeded by as many commands as you need.
  104.  
  105.  
  106.  
  107. KK=MOUSE ZONE
  108. -------------
  109. Really we do not need this line.  What it does is tells the variable KK to 
  110. hold the current zone number the mouse pointer is over.  If the mouse is not
  111. over any zone at all the value of kk (and mouse zone) will be zero.
  112. We will see why it`s not totally necessary in a moment. 
  113.  
  114.  
  115. LOCATE 0,20
  116. -----------
  117. Set the text cursor to 0 across 20 down, ready for PRINTing to.
  118.  
  119.  
  120. IF KK=1 THEN CENTRE "YOU SELECTED BOX 1"
  121. ----------------------------------------
  122. We could also have used IF MOUSE ZONE=1 but KK is quicker and neater to use.
  123. So if KK=1 (the zone the mouse pointer has been clicked over) THEN PRINT etc.
  124.  
  125. The following two lines are similar except for the text in the quotes.
  126.  
  127. IF KK=4 THEN CENTRE "YOU SELECTED EXIT": WAIT 50: EDIT
  128. ------------------------------------------------------
  129. We have used box 4 as an exit to the program, WAIT enough time for the user
  130. to read the message then goto EDIT mode.
  131.  
  132.  
  133. GOTO KEE
  134. --------
  135. The mouse key was pressed but KK was not equal to 1,2,3 or 4 so no box was
  136. clicked on (KK equal to 0) so we jump back to start checking all over again.
  137.  
  138. I won`t spend any more time on this as EXAMPLE15.Amos will make it all clear.
  139.  
  140. Spend a little time with this program and you could knock up some neat little
  141. menus.  How about a background picture with the boxes overlaid? Remember that
  142. when you use a picture the palette will change the system colours.
  143. By the way if you load a picture of a different size to a screen you have
  144. previously opened then Amos will change the size of the screen accordingly
  145. for you, so for example if you did this,
  146.  
  147. SCREEN OPEN 0,640,256,8,hires
  148.  
  149. Then you loaded a picture which was Lowres 320X200 then Amos would scrap
  150. your hires screen for the dimensions of the newly loaded picture.
  151. You can get round this by loading the picture into a spare screen and using
  152. the SCREEN command to display it,
  153.  
  154. SCREEN OPEN 0,640,256,8,hires
  155. SCREEN OPEN 1,320,200,16,lowres
  156. LOAD IFF :picname",1
  157.  
  158. The picture will then be displayed on screen 1 and when you wish to use 
  159. screen 0 (your hires screen) you just use the command SCREEN 0.
  160.  
  161.  
  162. The menu  program was good as far as simplicity goes but using a similar
  163. method with a few more commands we could make this menu system much more
  164. flexible and neater take a look at EXAMPLE15_1.Amos it`s quite an improvement
  165. don`t you think?
  166.  
  167. As there are only a few commands we haven`t covered in EXAMPLE15_1.Amos and 
  168. as it is highly REMmed I will just explain the new commands.
  169.  
  170.  
  171. SET ZONE
  172. -------
  173. After using RESERVE ZONE we have to tell Amos exactly in coordinates where
  174. the top left and bottom right corners of each of our selection boxes are.
  175. In the prevoius example using ZONE$ Amos did this for us.
  176.  
  177. As the coordinates are hardware coordinates this is a pain so on this disk
  178. in the EXTRAS drawer you will find a program I wrote years ago called 
  179. GETZONE.Amos It will allow you to load an IFF picture or ABK SPACKED picture
  180. of any size you then click once on the top right corner of a menu box and 
  181. then the bottom right corner the hardware coordinates will then be displayed
  182. for you to write down, press a mouse key and you can do your next menu and so
  183. on. 
  184.  
  185. The good thing about this new menu system we are going to use is you are not
  186. limited to a box for your menu in fact it can be any rectangular shape or 
  187. size, within reason of course.
  188.  
  189. OK so we know our coordinates, we now need to let Amos know them too.
  190. This is where SET ZONE comes in to it.  In EXAMPLE15_1.Amos we have three 
  191. menu options so we need to set three zones 1 to 3 these will be the I.D 
  192. numbers for our menus throughout the program.
  193.  
  194. SET ZONE 1,                    The menu I.D
  195.  
  196. SET ZONE 1, 256,93 TO          And coordinates of the top left edge of menu
  197.  
  198. SET ZONE 1, 256,93 TO 362,104  And the second set, bottom left coordinates
  199.   
  200. And that is it now just insert the rest of your coordinates like this,
  201.  
  202. SET ZONE 2,256,109 TO 362,109   
  203. etc.
  204.  
  205.  
  206. Note: If like in the example program you are unpacking a screen then make 
  207. sure you unpack the screen BEFORE SETting ZONEs as they will be cleared.
  208.  
  209.  
  210. There are two more commands we have not covered from EXAMPLE15_1.Amos
  211. these are,
  212.  
  213. GOSUB
  214.  
  215. and
  216.  
  217. RETURN
  218.  
  219. These two commands are related, You GOSUB to a routine and then RETURN from
  220. it when completed.
  221.  
  222. GOSUB is almost the same as GOTO but has one extra powerful feature the 
  223. RETURN part, here is an example,
  224.  
  225.  
  226. GOSUB F1
  227. PRINT "I`VE BEEN TO F1"
  228. STOP
  229.  
  230.  
  231. F1:
  232. PRINT "I am now in a subroutine"
  233. RETURN
  234.  
  235.  
  236. The program goes to the part of the program labelled F1: and executes 
  237. commands until it reaches a RETURN instruction, and this is the good part, 
  238. the program then continues from the instruction immediately after the GOSUB 
  239. call.  So what! You may say, what use is that? Well what if we wanted to 
  240. execute the same routine lots of times during a program we just call it with
  241. GOSUB then continue executing from after the gosub as if nothing happened.
  242.  
  243. In Amos the GOSUB has taken a bit of a backseat because of a command called
  244. PROCEDURE and we will be covering that subject very soon, but now you know
  245. about GOTO and GOSUB, PROCEDURE will be a lot easier to understand.
  246. For a good example of GOSUB check out Example15_1.Amos.
  247.  
  248.  
  249. End of chapter fifteen.  
  250.  
  251.  
  252.  
  253.